home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…tion Library 2 (Reseller) / Apple R&P Lib Reseller v2.0.iso / 2-Presentations / Markets / Eng.⁄Science Markets / Eng.⁄Scientific Solutions Guide / Apple Glossary 2.0 / background_3616.txt < prev    next >
Encoding:
Text File  |  1989-07-14  |  4.5 KB  |  213 lines
  1. -- background: 3616 from stack: in.0
  2. -- bmap block id: 2103
  3. -- flags: 4000
  4. -- background id: 0
  5. -- name: 
  6. ----- HyperTalk script -----
  7. on openStack
  8.   hide message box
  9.   show menuBar
  10.   pass openStack
  11. end openStack
  12.  
  13.  
  14. -- part 6 (field)
  15. -- low flags: 00
  16. -- high flags: 0004
  17. -- rect: left=59 top=59 right=88 bottom=439
  18. -- title width / last selected line: 0
  19. -- icon id / first selected line: 0 / 0
  20. -- text alignment: 0
  21. -- font id: 21
  22. -- text size: 18
  23. -- style flags: 0
  24. -- line height: 24
  25. -- part name: Word
  26.  
  27.  
  28. -- part 8 (button)
  29. -- low flags: 00
  30. -- high flags: 0000
  31. -- rect: left=256 top=296 right=319 bottom=281
  32. -- title width / last selected line: 0
  33. -- icon id / first selected line: 1013 / 1013
  34. -- text alignment: 1
  35. -- font id: 0
  36. -- text size: 12
  37. -- style flags: 0
  38. -- line height: 16
  39. -- part name: Next
  40. ----- HyperTalk script -----
  41. on mouseUp
  42.   get first line of field "FindThisSelection"
  43.   go next
  44.   put it into field "FindThisSelection"
  45. end mouseUp
  46.  
  47.  
  48.  
  49. -- part 9 (button)
  50. -- low flags: 00
  51. -- high flags: 0000
  52. -- rect: left=222 top=296 right=319 bottom=248
  53. -- title width / last selected line: 0
  54. -- icon id / first selected line: 1014 / 1014
  55. -- text alignment: 1
  56. -- font id: 0
  57. -- text size: 12
  58. -- style flags: 0
  59. -- line height: 16
  60. -- part name: Prev
  61. ----- HyperTalk script -----
  62. on mouseUp
  63.   get first line of field "FindThisSelection"
  64.   go prev
  65.   put it into field "FindThisSelection"
  66. end mouseUp
  67.  
  68.  
  69.  
  70. -- part 17 (field)
  71. -- low flags: 00
  72. -- high flags: 0000
  73. -- rect: left=63 top=105 right=269 bottom=436
  74. -- title width / last selected line: 0
  75. -- icon id / first selected line: 0 / 0
  76. -- text alignment: 0
  77. -- font id: 16
  78. -- text size: 14
  79. -- style flags: 0
  80. -- line height: 18
  81. -- part name: Definition
  82.  
  83.  
  84. -- part 21 (field)
  85. -- low flags: 01
  86. -- high flags: 0002
  87. -- rect: left=113 top=276 right=295 bottom=438
  88. -- title width / last selected line: 0
  89. -- icon id / first selected line: 0 / 0
  90. -- text alignment: 0
  91. -- font id: 3
  92. -- text size: 12
  93. -- style flags: 0
  94. -- line height: 16
  95. -- part name: FindThisSelection
  96. ----- HyperTalk script -----
  97. on mouseUp
  98.   global findWord
  99.   get first line of field "FindThisSelection"
  100.   put it into findWord
  101.   set lockScreen to true
  102.   push card
  103.   go next
  104.   find it in bkgnd field "word"
  105.   if the result is not empty then
  106.     find it in bkgnd field "definition"
  107.     if the result is not empty then
  108.       answer "Sorry, I couldn't find your selection." with "OK"
  109.       go prev
  110.       set lockScreen to false
  111.       exit mouseUp
  112.     end if
  113.   end if
  114.   put findWord into field "FindThisSelection"
  115.   --put "click at loc of field FindThisSelection"
  116.   set lockScreen to false
  117. end mouseUp
  118.  
  119.  
  120. -- part 23 (button)
  121. -- low flags: 00
  122. -- high flags: A002
  123. -- rect: left=60 top=276 right=295 bottom=112
  124. -- title width / last selected line: 0
  125. -- icon id / first selected line: 0 / 0
  126. -- text alignment: 1
  127. -- font id: 0
  128. -- text size: 12
  129. -- style flags: 0
  130. -- line height: 16
  131. -- part name: Find…
  132. ----- HyperTalk script -----
  133. on mouseUp
  134.   global timerTest
  135.   ask "What would you like to search for?"
  136.   if it is "" then
  137.     exit mouseUp
  138.   end if
  139.   find it in bkgnd field "word"
  140.   if the result is not empty then
  141.     find it in bkgnd field "definition"
  142.     if the result is not empty then
  143.       answer "Sorry, I couldn't find your selection." with "OK"
  144.       exit mouseUp
  145.     end if
  146.   end if
  147.   put it into field "FindThisSelection"
  148.   if timerTest is "true" then resetTimer
  149. end mouseUp
  150.  
  151.  
  152.  
  153.  
  154. -- part 25 (button)
  155. -- low flags: 00
  156. -- high flags: 2000
  157. -- rect: left=444 top=239 right=275 bottom=483
  158. -- title width / last selected line: 0
  159. -- icon id / first selected line: 14109 / 14109
  160. -- text alignment: 1
  161. -- font id: 0
  162. -- text size: 12
  163. -- style flags: 0
  164. -- line height: 16
  165. -- part name: return to last card
  166. ----- HyperTalk script -----
  167. on mouseUp
  168.   visual effect iris close
  169.   pop card
  170. end mouseUp
  171.  
  172.  
  173.  
  174. -- part 26 (button)
  175. -- low flags: 00
  176. -- high flags: 2000
  177. -- rect: left=444 top=200 right=236 bottom=483
  178. -- title width / last selected line: 0
  179. -- icon id / first selected line: 21060 / 21060
  180. -- text alignment: 1
  181. -- font id: 0
  182. -- text size: 12
  183. -- style flags: 0
  184. -- line height: 16
  185. -- part name: return to last card
  186. ----- HyperTalk script -----
  187. on mouseUp
  188.   visual effect venetian blinds
  189.   push card
  190.   go card "Explain"
  191. end mouseUp
  192.  
  193.  
  194.  
  195. -- part 28 (button)
  196. -- low flags: 00
  197. -- high flags: 2000
  198. -- rect: left=444 top=159 right=195 bottom=483
  199. -- title width / last selected line: 0
  200. -- icon id / first selected line: 2045 / 2045
  201. -- text alignment: 1
  202. -- font id: 0
  203. -- text size: 12
  204. -- style flags: 0
  205. -- line height: 16
  206. -- part name: Home
  207. ----- HyperTalk script -----
  208. on mouseUp
  209.   visual effect dissolve
  210.   domenu home
  211. end mouseUp
  212.  
  213.